home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 January & February / rerun-1986-01-02.d64 / lister 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  74 lines
  1. 100 dev=4 : rem printer device number
  2. 110 loc=49152:line=1000
  3. 120 print"poking data from line"line:k=0:check=0
  4. 130 if loc>50148 then170
  5. 140 readn:pokeloc,n:loc=loc+1:check=check+n:k=k+1:ifk<16then130
  6. 150 read n:ifn=checkthenline=line+10:goto120
  7. 160 print"data statement error on line"line:end
  8. 170 read n:ifn<>checkthen160
  9. 180 poke 49250,dev
  10. 190 print"lister load successful.":print"sys 49152 to start":end
  11. 1000 data 162,0,189,140,195,240,6,32,210,255,232,208,245,32,228,255,2629
  12. 1010 data 240,251,201,83,208,11,141,232,195,169,147,32,201,194,76,120,2501
  13. 1020 data 192,201,80,208,232,141,232,195,32,210,255,32,199,194,162,0,2565
  14. 1030 data 189,177,195,240,6,32,210,255,232,208,245,162,61,169,0,157,2538
  15. 1040 data 254,195,202,169,32,157,254,195,202,208,250,32,207,255,201,13,2826
  16. 1050 data 240,8,157,254,195,232,224,60,208,241,169,1,141,244,195,169,2738
  17. 1060 data 3,162,4,160,255,32,186,255,169,0,32,189,255,32,192,255,2181
  18. 1070 data 162,3,32,201,255,32,91,194,165,43,133,251,165,44,133,252,2156
  19. 1080 data 198,251,169,0,141,233,195,169,6,141,236,195,173,233,195,208,2743
  20. 1090 data 39,160,0,169,0,141,230,195,141,245,195,141,234,195,141,246,2472
  21. 1100 data 195,141,229,195,162,3,177,251,208,3,238,230,195,200,202,208,2837
  22. 1110 data 245,173,230,195,201,3,208,7,32,199,194,32,231,255,96,177,2478
  23. 1120 data 251,141,242,195,200,177,251,140,253,195,141,243,195,162,0,32,2818
  24. 1130 data 67,194,32,195,194,169,2,141,246,195,172,253,195,200,177,251,2683
  25. 1140 data 208,23,140,253,195,32,74,195,173,253,195,24,101,251,133,251,2501
  26. 1150 data 169,0,101,252,133,252,76,140,192,170,173,245,195,208,43,138,2487
  27. 1160 data 201,177,144,25,201,180,176,21,41,127,141,251,195,173,239,195,2487
  28. 1170 data 208,3,32,195,194,169,1,141,239,195,76,139,193,173,239,195,2392
  29. 1180 data 240,3,32,195,194,169,0,141,239,195,138,201,58,208,23,173,2209
  30. 1190 data 245,195,240,4,169,58,208,43,32,195,194,169,58,32,201,194,2237
  31. 1200 data 32,74,195,76,221,192,138,201,34,208,13,173,245,195,73,255,2325
  32. 1210 data 141,245,195,169,34,76,232,193,201,32,208,13,173,245,195,240,2592
  33. 1220 data 0,169,32,32,201,194,76,221,192,201,128,176,3,76,232,193,2126
  34. 1230 data 173,245,195,208,115,138,41,127,141,251,195,201,2,208,9,173,2422
  35. 1240 data 236,195,56,233,2,141,236,195,32,195,194,162,0,140,253,195,2465
  36. 1250 data 160,0,236,251,195,240,14,185,158,160,201,129,144,4,232,200,2509
  37. 1260 data 208,240,200,208,242,185,158,160,201,129,144,54,41,127,32,201,2530
  38. 1270 data 194,173,239,195,208,22,173,251,195,201,35,240,15,201,38,240,2620
  39. 1280 data 11,201,52,144,4,201,75,144,3,32,195,194,173,251,195,201,2076
  40. 1290 data 1,208,9,173,236,195,24,105,2,141,236,195,172,253,195,76,2221
  41. 1300 data 221,192,32,201,194,200,208,189,32,201,194,76,221,192,169,48,2570
  42. 1310 data 141,231,195,173,242,195,56,237,240,195,141,242,195,173,243,195,3094
  43. 1320 data 237,241,195,141,243,195,144,5,238,231,195,208,230,24,173,240,2940
  44. 1330 data 195,109,242,195,141,242,195,173,241,195,109,243,195,141,243,195,3054
  45. 1340 data 173,231,195,201,48,208,9,173,234,195,208,7,169,32,208,6,2297
  46. 1350 data 141,234,195,173,231,195,32,201,194,169,0,141,237,195,174,252,2764
  47. 1360 data 195,232,232,189,217,195,201,42,208,1,96,142,252,195,141,240,2778
  48. 1370 data 195,232,189,217,195,141,241,195,76,238,193,173,254,195,201,64,2999
  49. 1380 data 240,96,32,199,194,162,0,189,133,195,240,6,32,210,255,232,2415
  50. 1390 data 208,245,162,0,189,254,195,240,6,32,210,255,232,208,245,162,2843
  51. 1400 data 0,189,211,195,240,6,32,210,255,232,208,245,169,0,174,244,2610
  52. 1410 data 195,140,253,195,32,205,189,172,253,195,32,199,194,162,0,189,2605
  53. 1420 data 133,195,240,6,32,210,255,232,208,245,162,67,169,45,32,210,2441
  54. 1430 data 255,202,208,248,32,199,194,32,199,194,169,5,141,238,195,238,2749
  55. 1440 data 244,195,96,169,32,208,2,169,13,140,247,195,142,248,195,141,2436
  56. 1450 data 235,195,201,32,208,17,205,237,195,240,67,173,237,195,201,40,2678
  57. 1460 data 240,60,173,246,195,208,55,173,246,195,240,38,174,236,195,201,2875
  58. 1470 data 2,240,4,138,76,251,194,138,56,233,6,141,230,195,141,229,2274
  59. 1480 data 195,240,12,169,32,32,210,255,206,230,195,208,246,169,0,141,2540
  60. 1490 data 246,195,173,235,195,141,237,195,32,210,255,238,229,195,32,228,3036
  61. 1500 data 255,208,2,240,30,169,128,141,249,195,141,250,195,206,249,195,2853
  62. 1510 data 208,251,206,250,195,208,246,32,228,255,240,251,201,81,208,3,3063
  63. 1520 data 141,233,195,172,247,195,174,248,195,96,32,199,194,173,232,195,2921
  64. 1530 data 201,80,208,43,173,229,195,201,80,144,8,238,238,195,169,0,2402
  65. 1540 data 141,229,195,238,238,195,173,238,195,201,62,144,18,173,254,195,2889
  66. 1550 data 201,64,240,11,162,5,32,199,194,202,208,250,32,91,194,169,2254
  67. 1560 data 1,141,246,195,96,32,32,32,32,32,32,0,147,79,85,84,1266
  68. 1570 data 80,85,84,32,84,79,32,80,82,73,78,84,69,82,32,79,1135
  69. 1580 data 82,32,83,67,82,69,69,78,32,40,80,47,83,41,63,32,980
  70. 1590 data 0,84,89,80,69,32,73,78,32,65,32,72,69,65,68,73,981
  71. 1600 data 78,71,32,70,79,82,32,69,65,67,72,32,80,65,71,69,1034
  72. 1610 data 58,13,0,80,65,71,69,32,0,16,39,232,3,100,0,10,788
  73. 1620 data 0,1,0,42,42,85
  74.